0 POKE53248+21,.
1 IFA=.THENA=1:LOAD"CHOPPER.FNT",8,1
2 IFA=1THENA=2:LOAD"CHOPPER.WRD",8,1
3 POKE53272,(PEEK(53272)AND240)OR14
4 POKE16383,255:GOSUB60100:CLR
5 POKE53281,1:POKE53280,5:GOTO2000
10 WF$="[255][223][157][157][190][191]":PRINT"[147]":NS=10:POKE2040,14
12 X=140:Y=235:S=54296:V=53248:CL=53279:F=.:POKECL,.:M=.:L=.:MO=.:NE=.
13 POKEV+16,.:POKEV,X:POKEV+1,Y:POKECL,.:MN=INT(NS/3)
14 PRINT"";:FORA=1TO24-NS:PRINT"";:NEXT
15 PRINT"[147][150][168][168][168][168][168][168][168][168][168][168][168]"
17 FORA=1TONS-1:PRINT"[168][168][168][168][168][168][168][168][168][168][168]":NEXT
18 PRINT"[168][168][168][168][168][168][168][168][168][168][168]    [175][175][175][175][175]"
20 PRINT"";:FORA=1TO26-NS:PRINT:NEXT
21 FORA=1TONS/2-3:IFRND(1)>.3THENPRINT""WF$;
22 IFRND(1)>.3THENPRINT"[145]"WF$;
23 IFRND(1)>.3THENPRINT"[145]"WF$;:UP=1
24 PRINT:IFUPTHENUP=.:PRINT
25 NEXT:GOSUB9060
26 POKEV+16,.:POKEV+21,1:POKEV+29,1:POKEV+39,6:RESTORE
30 FORT=832TO840:READQ:POKET,Q:NEXT:FORT=896TO904:READQ:POKET,Q:NEXT
40 FORT=841TO870:READQ:POKET,Q:POKET+64,Q:NEXT
45 FORT=871TO894:POKET,.:POKET+64,.:NEXT
50 J=PEEK(56320):L=L+(J=126)*.2:L=L+(J=125)*-.2:M=M+(J=123)*.2:M=M+(J=119)*-.2
55 PRINT""TAB(20)"[154]MEN IN BUILDING:"MN
60 X=X+M:Y=Y+L
65 GOSUB1000:IFNOT(OK)THEN120
70 IF(F=0)AND(X>255)THENX=.:POKEV+21,.:POKEV+16,3:F=1:GOTO110
75 IF(Y>238)OR(Y<50)THEN120
80 IF(F=0)AND(X<24)THEN120
85 GOSUB1000:IFNOT(OK)THEN120
90 IF(F=1)AND(X<0)THENX=255:POKEV+21,.:POKEV+16,0:F=0:GOTO110
100 IF(F=1)AND(X>40)THEN120
105 GOSUB1000:IFNOT(OK)THEN120
110 POKEV,X:POKEV+1,Y:POKEV+21,1
115 IF(NM)THENGOSUB9000:IF(NE)THEN12
118 GOTO50
120 POKES,15:FORT=50TO.STEP-1
122 POKE2040,1
124 POKE54276,.:POKE54273,T:POKE54272,T:POKE2040,2:POKE54277,128:POKE54278,132
125 POKE54276,129:FORA=1TO10:NEXTA,T
131 DATA000,000,000,000,007,000,000,002
132 DATA000,007,224,000,000,031,192,000
133 DATA002,063,224,006,000,144,031,128
134 DATA072,114,064,063,242,032,007,254
135 DATA032,000,255,192,000,031,128,000
136 DATA010,000,000,018,064,000,063,192
140 POKEV+21,.:PRINT"YOU CRASHED!"
150 PRINT"PRESS SPACE FOR MENU"
160 IFPEEK(203)<>60THEN160
170 GOTO2000
1000 OK=-1:A=PEEK(CL)AND1:IF(A)THENOK=.
1005 B=14+(B=14):POKE2040,B:POKES,15:POKES,.
1010 IF(OK)THENRETURN
1020 TB=(24-NS)*8+37
1030 IF(X<75)AND(Y<TB+4)AND(L<=1.4)AND(M<=1)THENY=TB:M=.:L=.:OK=-1:MO=1:ER=1
1035 IF(ER)THENER=.:PRINT"";:FORA=1TO23-NS:PRINT:NEXT:PRINT" ":RETURN
1040 IF(Y<239)AND(L<=1.4)AND(M<=1)AND(X>117)ANDX<154THENY=235:M=.:L=.:OK=-1:NM=1
1050 IF(NM)AND(MO=.)THENNM=.:RETURN
1100 RETURN
2000 POKE53280,2.:POKE53281,.
2005 PRINT"[147][159]":SC=1024+10:GOSUB60300
2010 PRINT"                   BY"
2020 PRINT"           BOB AND DAVE SNADER"
2030 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][157][148][192]"
2040 PRINT"          P [154]- PLAY CHOPPER PILOT"
2050 PRINT"          Q [154]- QUIT"
2060 PRINT"          [154]PRESS P [154]OR Q[154]."
2070 A=PEEK(203):IFA<>41ANDA<>62THEN2070
2080 IFA=41THEN10
2090 GOSUB60000:GOTO2060
9000 SC=2004:FORA=1TO4:R(A)=A+64:NEXT
9010 FORA=SCTO2023STEP2:FORB=1TO4
9020 J=INT(B/4):POKEA+J,R(B)
9030 POKEA+J+54272,15
9040 FORC=1TO60:NEXT:POKEA+J,32
9050 NEXTB,A:NM=.:MO=.:MN=MN-1
9060 IFMN>.THENPRINT"";:FORA=1TO23-NS:PRINT:NEXT:PRINT"[155]\":RETURN
9070 NS=NS+2:IFNS>22THENNS=22
9080 NE=1:MN=1:GOTO9060
60000 PRINT"[145]  [154]ARE YOU SURE YOU WANT TO QUIT? (Y[154]/N[154])"
60010 A=PEEK(203):IFA<>25ANDA<>39THEN60010
60020 IFA=39THENPRINT"[145]                                      [145]":RETURN
60030 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60040 IFER<>63THENEND
60050 PRINT"[147]":POKE53272,21:LOAD"HELLO CONNECT",8
60100 POKE53280,1:POKE53281,1
60110 PRINT"[147][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
60120 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
60130 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]"
60140 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
60150 PRINT"          [149]LOADSTAR PRESENTS:"
60160 PRINT"                               "
60162 PRINT"                               [155] "
60163 PRINT"                               [155] "
60170 PRINT"                               [155] "
60180 PRINT"                               [155] "
60183 PRINT"                                [145]"
60185 SC=1024+9*40+10:GOSUB60300
60190 PRINT"         BY  BOB & DAVE SNADER [155] "
60200 PRINT"                               [155] "
60210 PRINT"            COPYRIGHT  [193][194][195][196]    [155] "
60220 PRINT"                               [155] "
60230 PRINT"                                "
60240 PRINT"        [149]PRESS SPACE TO CONTINUE"
60250 IFPEEK(203)<>60THEN60250
60260 RETURN
60300 ME=49152:LE=21:CO=PEEK(646)
60310 FORA=METOME+LE-1:AD=A-ME
60320 POKESC+AD,PEEK(ME+AD):POKESC+AD+54272,CO
60330 POKESC+AD+40,PEEK(ME+AD+LE):POKESC+AD+40+54272,CO
60340 POKESC+AD+80,PEEK(ME+AD+LE*2):POKESC+AD+80+54272,CO
60350 NEXT:RETURN